home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1989 Special Issue / rerun-1989-special-issue.d64 / ball demo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  300b  |  9 lines
  1. 10 rem  screen border set up for bouncing balls
  2. 20 rem
  3. 30 ifa=0then print"[147]loading bballs.irq":a=1:load"bballs.irq",8,1
  4. 40 print"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  5. 50 forx=1to23:print"[221]                                      [221]";:next
  6. 60 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";:poke2023,125
  7. 70 sys49152
  8. 80 goto80
  9.